home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol099 / config.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-15  |  40.3 KB  |  1,078 lines
  1. 10000  ' WARNING !!! DO NOT CHANGE, BYPASS OR REMOVE LINES 10000-10230
  2. 10010  ' CONFIG.BAS (RBBS-PC ver. CPC12.2)
  3. 10020  REM $LINESIZE: 132
  4. 10030  'by D. Thomas Mack
  5. 10040  '   The Second Ring
  6. 10050  '   10210 Oxfordshire Road
  7. 10060  '   Great Falls, Virginia 22066
  8. 10070  '
  9. 10080  ' *******************************NOTICE*************************************
  10. 10090  ' *  A limited license is granted to all users of this program and it's   *
  11. 10100  ' *  companion program, RBBS-PC (ver. CPC12.2), to make copies of this    *
  12. 10110  ' *  program and distribute the copies to other users, on the following   *
  13. 10120  ' *  conditions:                                                          *
  14. 10130  ' *    1.   The notices contained in lines 25 through 44 of the programs  *
  15. 10140  ' *         are not altered, bypassed, or removed.                        *
  16. 10150  ' *    2.   The program is not to be disrtibuted to others in modified    *
  17. 10160  ' *         form (i.e. the line numbers must remain the same).            *
  18. 10170  ' *    3.   No fee is to be charged (or any other consideration received) *
  19. 10180  ' *         for coping or distributing these programs without an express  *
  20. 10190  ' *         written agreement with D. Thomas Mack, The Second Ring, 10210 *
  21. 10200  ' *         Oxfordshire Road, Great falls, Virginia 22006                 *
  22. 10210  ' *                                                                       *
  23. 10220  ' *   Copyright (c) 1983, 1984 D. Thomas Mack, The Second Ring            *
  24. 10230  ' *************************************************************************
  25. 10240  CLEAR ,,2000:SCREEN 0,1,0:WIDTH 80:CLS:I!=FRE(C$):KEY OFF:LOCATE ,,0
  26. 10250  PRINT TAB(60)"tm":PRINT TAB(16) STRING$(15,205)" U S E R W A R E "STRING$(15,205)
  27. 10260  PRINT:PRINT TAB(17)"Capital PC User Group User-Supported Software":PRINT:PRINT TAB(7) CHR$(214)STRING$(62,196)CHR$(183)
  28. 10270  FOR I=1 TO 12:READ A$:PRINT TAB(7) CHR$(186);A$;SPACE$(62-LEN(A$));CHR$(186):NEXT
  29. 10280  PRINT TAB(7) CHR$(211)STRING$(62,196)CHR$(189):PRINT TAB(27)"Copyright (c) 1983, 1984 Tom Mack, 10210 Oxfordshire Rd., Great Falls, VA 22066"
  30. 10290  DATA"    If you are using RBBS-PC CPC12.2 and find it of value, I
  31. 10300  DATA"    would like to suggest you consider a contribution to
  32. 10310  DATA"
  33. 10320  DATA"                 Capital PC Software Exchange
  34. 10330  DATA"                     Post Office Box 6128
  35. 10340  DATA"                Silver Spring, Maryland  20906
  36. 10350  DATA"
  37. 10360  DATA"    Feel free to copy and share RBBS-PC CPC12 with other
  38. 10370  DATA"    users on these three conditions:
  39. 10380  DATA"    1.  RBBS-PC CPC12 is not distributed in modified form.
  40. 10390  DATA"    2.  No fee or consideration is charged.
  41. 10400  DATA"    3.  This notice is not bypassed or removed.
  42. 10410  DEF FNTI!=CSNG(FIX((VAL(MID$(TIME$,1,2))*60*60)+(VAL(MID$(TIME$,4,2))*60)+(VAL(MID$(TIME$,7,2))*1))) ' CPC10
  43. 10420  IWAIT!=FNTI!+5
  44. 10430  IF FNTI!<IWAIT! THEN LOCATE 22,15:PRINT TIME$;" ";:COLOR 0,7:PRINT " Reading Data, Wait a sec !!! ";:COLOR 7,0:GOTO 10430
  45. 10440  ' *************************************************************************
  46. 10450  DEFINT A-Z:DIM A$(5),SA(12),MD(18),FS(8),UA(12)
  47. 10460  ON ERROR GOTO 20350
  48. 10470  FALSE=0
  49. 10480  TRUE=NOT FALSE
  50. 10490  MAXPAGE=5
  51. 10500  MINPAGE=1
  52. 10510  CONFIG$="RBBS-PC.DEF"
  53. 10520  NEWFILE=-1
  54. 10530  MESSAGES$="MESSAGES"
  55. 10540  MESSAGES.BAK$="MESSAGES.BAK"
  56. 10550  CALLERS$="CALLERS"
  57. 10560  COMMENTS$="COMMENTS"
  58. 10570  USERS$="USERS"
  59. 10580  LONGCALR$="LONGCALR"
  60. 10590  R$="LASTCALR"
  61. 10600  C$=""
  62. 10610  HELP01$="HELP01"
  63. 10620  HELP02$="HELP02"
  64. 10630  HELP03$="HELP03"
  65. 10640  HELP04$="HELP04"
  66. 10650  HELP05$="HELP05"
  67. 10660  HELP06$="HELP06"
  68. 10670  HELP07$="HELP07"
  69. 10680  HELP08$="HELP08"
  70. 10690  BULLETIN$="BULLETIN"
  71. 10700  BULLET1$="BULLET1"
  72. 10710  BULLET2$="BULLET2"
  73. 10720  BULLET3$="BULLET3"
  74. 10730  BULLET4$="BULLET4"
  75. 10740  BULLET5$="BULLET5"
  76. 10750  BULLET6$="BULLET6"
  77. 10760  WELCOME$="WELCOME"
  78. 10770  NEWUSER$="NEWUSER"
  79. 10780  MENU1$="MENU1"
  80. 10790  MENU2$="MENU2"
  81. 10800  MENU3$="MENU3"
  82. 10810  MENU4$="MENU4"
  83. 10820  MENU5$="MENU5"
  84. 10830  CONF$="CONFENCE"
  85. 10840  CONFNUM=0
  86. 10850  OPTWEL=TRUE
  87. 10860  UPLDDLD=FALSE
  88. 10870  PL=23
  89. 10880  LW=80
  90. 10890  GRAPHICS=FALSE
  91. 10900  WINDW=FALSE
  92. 10910  DIR$="DIR"
  93. 10920  FGR=7
  94. 10930  BGR=0
  95. 10940  BDR=0
  96. 10950  TDEV$="A"
  97. 10960  DOSVER%=1
  98. 10970  NFIR$="TOM"
  99. 10980  NLAS$="MACK"
  100. 10990  PASS1$="RBBS-PC"
  101. 11000  PASS2$="CPC12"
  102. 11010  XPR=0
  103. 11020  CBACK=0
  104. 11030  MINSEC=0
  105. 11040  DFSEC=5
  106. 11050  SYSSEC=10
  107. 11060  FILE.SEC$=TDEV$+":"+"FILESEC"
  108. 11070  SEESYS=10
  109. 11080  KEYPW$=PASS1$
  110. 11090  NVIO=5
  111. 11100  SSEC=10:FOR I=1 TO 12:SA(I)=SSEC:NEXT
  112. 11110  MMSEC=5:FOR I=1 TO 18:MD(I)=MMSEC:NEXT
  113. 11120  FILSEC=5:FOR I=1 TO 8:FS(I)=FILSEC:NEXT
  114. 11130  UTLSEC=5:FOR I=1 TO 12:UA(I)=UTLSEC:NEXT
  115. 11140  PASWRD$=TDEV$+":"+"PASSWRDS"
  116. 11150  CHMAX=3
  117. 11160  CHSEC=5
  118. 11170  FDEV$="ABB"
  119. 11180  RDEV$="A"
  120. 11190  MDEV$="A"
  121. 11200  UDIR$="DIR99"
  122. 11210  RBBS$=RDEV$+":RBBS.BAT"
  123. 11220  CTTY$=RDEV$+":RCTTY.BAT"
  124. 11230  OMIT.DIR$="NO"
  125. 11240  OMIT.UDIR$="NO"
  126. 11250  BELL=0
  127. 11260  PRT=TRUE
  128. 11270  TIME.MAX!=72
  129. 11280  MESSAGE.MAX=250
  130. 11290  LAPSE.MAX=1
  131. 11300  ANNOY.ON=800
  132. 11310  ANNOY.OFF=2200
  133. 11320  COMPILED=FALSE
  134. 11330  OPTBUL=TRUE
  135. 11340  SPEAKER=0
  136. 11350  M13$="COM1"
  137. 11360  REMIND=TRUE
  138. 11370  BTOK=TRUE
  139. 11375  B=1
  140. 11380  SM1$="<ESC>  sysop sign-on maintenance/page."
  141. 11381  SM2$=" <F1>  return to DOS."
  142. 11382  SM3$=" <F2>  return to BASIC."
  143. 11383  SM4$=" <F3>  toggle Line Printer."
  144. 11384  SM5$=" <F4>  toggle SYSOP Page Bell."
  145. 11385  SM6$=" <F5>  force on-line state."
  146. 11386  SM7$=" <F6>  toggle SYSOP avaliable."
  147. 11387  SM8$=" <F7>  SYSOP gets system after this caller."
  148. 11388  SM9$=" <F8>  grant temporary SYSOP privileges."
  149. 11389  SM10$=" <F9>  toggle SNOOP."
  150. 11390  SM11$="<F10>  force CHAT - ESC to end."
  151. 11391  ' RBBS-PC Configuration Program for Compilable RBBS-PC
  152. 11400  OPEN "I",#1,CONFIG$
  153. 11410  INPUT #1,FDEV$,RDEV$,PASS1$,PASS2$,NFIR$,NLAS$,CBACK,ANNOY.ON,ANNOY.OFF,TIME.MAX!,MESSAGE.MAX,LAPSE.MAX,UDIR$,XPR,B,BELL,PRT,COMPILED,MENU1$,MENU2$,MENU3$,MENU4$,MENU5$,CONF$,CONFNUM,OPTWEL,UPLDDLD,PL,LW,GRAPHICS,WINDW,MDEV$
  154. 11420  INPUT #1,MESSAGES$,MESSAGES.BAK$,CALLERS$,COMMENTS$,USERS$,LONGCALR$,WELCOME$,NEWUSER$,DIR$,M13$,OPTBUL,SPEAKER,TDEV$,DOSVER%,FGR,BGR,BDR,RBBS$,CTTY$,OMIT.DIR$,OMIT.UDIR$
  155. 11430  INPUT #1,HELP01$,HELP02$,HELP03$,HELP04$,HELP05$,HELP06$,HELP07$,HELP08$,BULLETIN$,BULLET1$,BULLET2$,BULLET3$,BULLET4$,BULLET5$,BULLET6$,REMIND,BTOK
  156. 11440  INPUT #1,MINSEC,DFSEC,SYSSEC,FILE.SEC$,SEESYS,KEYPW$,NVIO,SA(1),SA(2),SA(3),SA(4),SA(5),SA(6),SA(7),SA(8),SA(9),SA(10),SA(11),SA(12),PASWRD$,CHMAX,CHSEC
  157. 11450  INPUT #1,MD(1),MD(2),MD(3),MD(4),MD(5),MD(6),MD(7),MD(8),MD(9),MD(10),MD(11),MD(12),MD(13),MD(14),MD(15),MD(16),MD(17),MD(18),FS(1),FS(2),FS(3),FS(4),FS(5),FS(6),FS(7),FS(8)
  158. 11455  INPUT #1,UA(1),UA(2),UA(3),UA(4),UA(5),UA(6),UA(7),UA(8),UA(9),UA(10),UA(11),UA(12)
  159. 11460  MESSAGES$=RIGHT$(MESSAGES$,(LEN(MESSAGES$)-2))
  160. 11470  MESSAGES.BAK$=RIGHT$(MESSAGES.BAK$,(LEN(MESSAGES.BAK$)-2))
  161. 11480  CALLERS$=RIGHT$(CALLERS$,(LEN(CALLERS$)-2))
  162. 11490  COMMENTS$=RIGHT$(COMMENTS$,(LEN(COMMENTS$)-2))
  163. 11500  USERS$=RIGHT$(USERS$,(LEN(USERS$)-2))
  164. 11510  LONGCALR$=RIGHT$(LONGCALR$,(LEN(LONGCALR$)-2))
  165. 11520  R$=RIGHT$(R$,(LEN(R$)-2))
  166. 11530  BULLETIN$=RIGHT$(BULLETIN$,(LEN(BULLETIN$)-2))
  167. 11540  BULLET1$=RIGHT$(BULLET1$,(LEN(BULLET1$)-2))
  168. 11550  BULLET2$=RIGHT$(BULLET2$,(LEN(BULLET2$)-2))
  169. 11560  BULLET3$=RIGHT$(BULLET3$,(LEN(BULLET3$)-2))
  170. 11570  BULLET4$=RIGHT$(BULLET4$,(LEN(BULLET4$)-2))
  171. 11580  BULLET5$=RIGHT$(BULLET5$,(LEN(BULLET5$)-2))
  172. 11590  BULLET6$=RIGHT$(BULLET6$,(LEN(BULLET6$)-2))
  173. 11610  HELP01$=RIGHT$(HELP01$,(LEN(HELP01$)-2))
  174. 11620  HELP02$=RIGHT$(HELP02$,(LEN(HELP02$)-2))
  175. 11630  HELP03$=RIGHT$(HELP03$,(LEN(HELP03$)-2))
  176. 11640  HELP04$=RIGHT$(HELP04$,(LEN(HELP04$)-2))
  177. 11650  HELP05$=RIGHT$(HELP05$,(LEN(HELP05$)-2))
  178. 11660  HELP06$=RIGHT$(HELP06$,(LEN(HELP06$)-2))
  179. 11670  HELP07$=RIGHT$(HELP07$,(LEN(HELP07$)-2))
  180. 11680  HELP08$=RIGHT$(HELP08$,(LEN(HELP08$)-2))
  181. 11690  WELCOME$=RIGHT$(WELCOME$,(LEN(WELCOME$)-2))
  182. 11700  NEWUSER$=RIGHT$(NEWUSER$,(LEN(NEWUSER$)-2))
  183. 11710  MENU1$=RIGHT$(MENU1$,(LEN(MENU1$)-2))
  184. 11720  MENU2$=RIGHT$(MENU2$,(LEN(MENU2$)-2))
  185. 11730  MENU3$=RIGHT$(MENU3$,(LEN(MENU3$)-2))
  186. 11740  MENU4$=RIGHT$(MENU4$,(LEN(MENU4$)-2))
  187. 11750  MENU5$=RIGHT$(MENU5$,(LEN(MENU5$)-2))
  188. 11760  CONF$=RIGHT$(CONF$,(LEN(CONF$)-2))
  189. 11770  SSEC=SA(1):FOR I=2 TO 12:IF SA(I)>SSEC THEN GOTO 11780 ELSE SSEC=SA(I)
  190. 11780  NEXT
  191. 11790  MMSEC=MD(1):FOR I=2 TO 18:IF MD(I)>MMSEC THEN GOTO 11800 ELSE MMSEC=MD(I)
  192. 11800  NEXT
  193. 11810  FILSEC=FS(1):FOR I=2 TO  8:IF FS(I)>FILSEC THEN GOTO 11820 ELSE FILSEC=FS(I)
  194. 11820  NEXT
  195. 11830  UTLSEC=UA(1):FOR I=2 TO 12:IF UA(I)>UTLSEC THEN GOTO 11840 ELSE UTLSEC=UA(I)
  196. 11840  NEXT
  197. 11850  CLOSE #1
  198. 11860  IF XPR=0 THEN M5$="NOVICE"
  199. 11870  IF XPR=-1 THEN M5$="EXPERT"
  200. 11880  M6$=RIGHT$(FDEV$,1)
  201. 11890  M7$=LEFT$(FDEV$,(LEN(FDEV$)-1))
  202. 11900  IF BELL=0 THEN M10$="OFF"
  203. 11910  IF BELL=-1 THEN M10$="ON"
  204. 11920  IF PRT=TRUE THEN M11$="YES"
  205. 11930  IF PRT=FALSE THEN M11$="NO"
  206. 11940  IF COMPILED=TRUE THEN M12$="COMPILED"
  207. 11950  IF COMPILED=FALSE THEN M12$="BASICA"
  208. 11960  IF OPTBUL=TRUE THEN M15$="YES"
  209. 11970  IF OPTBUL=FALSE THEN M15$="NO"
  210. 11980  IF SPEAKER=0 THEN M14$="OFF"
  211. 11990  IF SPEAKER=-1 THEN M14$="ON"
  212. 12000  IF REMIND=TRUE THEN M16$="YES"
  213. 12010  IF REMIND=FALSE THEN M16$="NO"
  214. 12020  IF BTOK=TRUE THEN M17$="YES"
  215. 12030  IF BTOK=FALSE THEN M17$="NO"
  216. 12040  IF OPTWEL=FALSE THEN M18$="NO"
  217. 12050  IF OPTWEL=TRUE THEN M18$="YES"
  218. 12060  IF UPLDDLD=TRUE THEN M19$="YES"
  219. 12070  IF UPLDDLD=FALSE THEN M19$="NO"
  220. 12080  IF GRAPHICS=TRUE THEN M20$="YES"
  221. 12090  IF GRAPHICS=FALSE THEN M20$="NO"
  222. 12100  IF WINDW=TRUE THEN M21$="YES"
  223. 12110  IF WINDW=FALSE THEN M21$="NO"
  224. 12120  Y$=""
  225. 12130  KEY OFF
  226. 12140  FOR I=1 TO 10:KEY I,"  ":NEXT
  227. 12150  COLOR FGR,BGR,BDR:CLS:I!=FRE(C$)
  228. 12160  COLOR 0,7,0:LOCATE 3,22:PRINT"RBBS-PC CPC12 CONFIGURATION PROGRAM":COLOR FGR,BGR,BDR:PRINT
  229. 12170  LOCATE 7,17,0:PRINT "(C) COPYRIGHT 1983 CAPITAL PC USER GROUP, INC.":PRINT
  230. 12180  LOCATE 25,27:PRINT"Press Enter to continue...";
  231. 12190  Y$=INKEY$
  232. 12200  IF Y$=CHR$(13) THEN 12220
  233. 12210  GOTO 12190
  234. 12220  CLS:I!=FRE(C$):COLOR 0,7,0:LOCATE 1,23:PRINT"RBBS-PC CPC12.2 Default Configuration";:COLOR FGR,BGR,BDR
  235. 12230  CURPAGE=1
  236. 12240  LOCATE 1,68:PRINT"Page "+STR$(CURPAGE)+" of "+STR$(MAXPAGE)
  237. 12250  LOCATE  3,10:PRINT" 1. SYSOP's First Name --------------------------- "+NFIR$
  238. 12260  LOCATE  4,10:PRINT" 2. SYSOP's Last Name ---------------------------- "+NLAS$
  239. 12270  LOCATE  5,10:PRINT" 3. SYSOP's Password # 1 ------------------------- "+PASS1$
  240. 12280  LOCATE  6,10:PRINT" 4. SYSOP's Password # 2 ------------------------- "+PASS2$
  241. 12290  LOCATE  7,10:PRINT" 5. SYSOP's default sign-on mode ----------------- "+M5$
  242. 12300  LOCATE  8,10:PRINT" 6. SYSOP's office hours ------------------------ "STR$(ANNOY.ON);" to "STR$(ANNOY.OFF)
  243. 12310  LOCATE  9,10:PRINT" 7. Ring-back count set at -----------------------"STR$(CBACK)
  244. 12320  LOCATE 10,10:PRINT" 8. Drive available for Uploading ---------------- "+M6$
  245. 12330  LOCATE 11,10:PRINT" 9. Drive(s) available for Downloading ----------- "+M7$
  246. 12340  LOCATE 12,10:PRINT"10. Drive with RBBS-PC system files -------------- "+RDEV$
  247. 12350  LOCATE 13,10:PRINT"11. Name of directory for uploading -------------- "+UDIR$
  248. 12360  LOCATE 14,10:PRINT"12. Prompt bell default is ----------------------- "+M10$
  249. 12370  LOCATE 15,10:PRINT"13. Maximum time on system (in minutes) ----------"STR$(TIME.MAX!)
  250. 12380  LOCATE 16,10:PRINT"14. Maximum number of messages allowed -----------"STR$(MESSAGE.MAX)
  251. 12390  LOCATE 17,10:PRINT"15. # Months of inactivty before user deleted ----"STR$(LAPSE.MAX)
  252. 12400  LOCATE 18,10:PRINT"16. # Of System Bulletins ------------------------"STR$(B)
  253. 12410  LOCATE 19,10:PRINT"17. Display user sessions on screen (SNOOP) ------ "+M11$
  254. 12420  LOCATE 20,10:PRINT"18. Execution type (COMPILED/BASICA) ------------- "+M12$
  255. 12430  LOCATE 21,10:PRINT"19. Communications port to be used by RBBS-PC ---- "+M13$
  256. 12440  LOCATE 22,10:PRINT"20. Select another page number.  Current page # is"STR$(CURPAGE)
  257. 12450  LOCATE 24,5:PRINT"Select number of configuration parameter to change (99 to update): ";:LOCATE 24,70:PRINT STRING$(10,32);
  258. 12460  TFGR=FGR+16:COLOR TFGR,BGR,BDR:LOCATE 24,70:PRINT"  ";:GOSUB 20470
  259. 12470  LOCATE 24,70
  260. 12480  COLOR FGR,BGR,BDR
  261. 12490  LINE INPUT;HJ$:IF HJ$="" THEN GOTO 12470
  262. 12500  LOCATE 24,5:PRINT STRING$(75,32);
  263. 12510  IF HJ$="1"THEN GOTO 12750
  264. 12520  IF HJ$="2" THEN GOTO 12820
  265. 12530  IF HJ$="3" THEN GOTO 12890
  266. 12540  IF HJ$="4" THEN GOTO 12960
  267. 12550  IF HJ$="5" THEN GOTO 13030
  268. 12560  IF HJ$="6" THEN GOTO 13100
  269. 12570  IF HJ$="7" THEN GOTO 13240
  270. 12580  IF HJ$="8" THEN GOTO 13290
  271. 12590  IF HJ$="9" THEN GOTO 13360
  272. 12600  IF HJ$="10" THEN GOSUB 13480: GOTO 12220
  273. 12610  IF HJ$="11" THEN GOTO 13550
  274. 12620  IF HJ$="12" THEN GOTO 13710
  275. 12630  IF HJ$="13" THEN GOTO 13800
  276. 12640  IF HJ$="14" THEN GOTO 13850
  277. 12650  IF HJ$="15" THEN GOTO 13900
  278. 12660  IF HJ$="16" THEN GOTO 13950
  279. 12670  IF HJ$="17" THEN GOTO 14000
  280. 12680  IF HJ$="18" THEN GOTO 14090
  281. 12690  IF HJ$="19" THEN GOTO 14180
  282. 12700  IF HJ$="20" THEN GOTO 14260
  283. 12710  IF HJ$="99" THEN GOTO 14350
  284. 12720  GOTO 12450
  285. 12730  LOCATE 24,5:PRINT HJ$+" not supported at this time.  Please try again."
  286. 12740  GOTO 12450
  287. 12750  LOCATE 24,5:PRINT"What is the SYSOP's FIRST name? ";
  288. 12760  LINE INPUT;HJ$
  289. 12770  IF HJ$="" THEN GOTO 12750
  290. 12780  IF LEN(HJ$)<3 GOTO 12750
  291. 12790  GOSUB 20480
  292. 12800  NFIR$=HJ$
  293. 12810  GOTO 12220
  294. 12820  LOCATE 24,5:PRINT"What is the SYSOP's LAST name? ";
  295. 12830  LINE INPUT;HJ$
  296. 12840  IF HJ$="" THEN GOTO 12820
  297. 12850  IF LEN(HJ$)<3 GOTO 12820
  298. 12860  GOSUB 20480
  299. 12870  NLAS$=HJ$
  300. 12880  GOTO 12220
  301. 12890  LOCATE 24,5:PRINT"What is the SYSOP's Password #1? ";
  302. 12900  LINE INPUT;HJ$
  303. 12910  IF HJ$="" THEN GOTO 12890
  304. 12920  IF LEN(HJ$)<3 GOTO 12890
  305. 12930  GOSUB 20480
  306. 12940  PASS1$=HJ$
  307. 12950  GOTO 12220
  308. 12960  LOCATE 24,5:PRINT"What is the SYSOP's Password #2? ";
  309. 12970  LINE INPUT;HJ$
  310. 12980  IF HJ$="" THEN GOTO 12960
  311. 12990  IF LEN(HJ$)<3 GOTO 12960
  312. 13000  GOSUB 20480
  313. 13010  PASS2$=HJ$
  314. 13020  GOTO 12220
  315. 13030  LOCATE 24,5:PRINT"SYSOP's default sign-on mode (EXPERT/NOVICE)? ";
  316. 13040  LINE INPUT;HJ$
  317. 13050  IF LEN(HJ$)=6 OR LEN(HJ$)=1 THEN GOTO 13060 ELSE GOTO 13030
  318. 13060  GOSUB 20480
  319. 13070  IF HJ$="E" OR HJ$="EXPERT" THEN M5$="EXPERT":GOTO 12220
  320. 13080  IF HJ$="N" OR HJ$="NOVICE" THEN M5$="NOVICE":GOTO 12220
  321. 13090  GOTO 13030
  322. 13100  LOCATE 24,5:PRINT"What is the earliest SYSOP wants to be paged? -- HHMM ";
  323. 13110  LINE INPUT;HJ$
  324. 13120  IF LEN(HJ$)<>4 GOTO 13100
  325. 13130  IF FIX(VAL(MID$(HJ$,1,2)))<0 OR FIX(VAL(MID$(HJ$,1,2)))>24 OR FIX(VAL(MID$(HJ$,3,2)))<0 OR FIX(VAL(MID$(HJ$,3,2)))>59 THEN GOTO 13100
  326. 13140  ANNOY.ON=VAL(HJ$)
  327. 13150  IF ANNOY.ON<0 OR IN!>2400 THEN GOTO 13100
  328. 13160  LOCATE 25,5:PRINT"What is the latest SYSOP wants to be paged? ---- HHMM ";
  329. 13170  LINE INPUT;HJ$
  330. 13180  IF LEN(HJ$)<>4 GOTO 13160
  331. 13190  IF FIX(VAL(MID$(HJ$,1,2)))<0 OR FIX(VAL(MID$(HJ$,1,2)))>24 OR FIX(VAL(MID$(HJ$,3,2)))<0 OR FIX(VAL(MID$(HJ$,3,2)))>59 THEN GOTO 13160
  332. 13200  ANNOY.OFF=VAL(HJ$)
  333. 13210  IF ANNOY.OFF<0 OR ANNOY.OFF>2400 THEN GOTO 13160
  334. 13220  IF ANNOY.ON>ANNOY.OFF THEN SWAP ANNOY.ON,ANNOY.OFF
  335. 13230  GOTO 12220
  336. 13240  LOCATE 24,5:PRINT"Set number of rings to ring-back on voice grade line ";
  337. 13250  LINE INPUT;HJ$
  338. 13260  CBACK=FIX(VAL(HJ$))
  339. 13270  IF CBACK<0 OR CBACK>99 THEN GOTO 13240
  340. 13280  GOTO 12220
  341. 13290  LOCATE 24,5:PRINT"Specify single drive in the range A->M for uploading. ";
  342. 13300  LINE INPUT;HJ$
  343. 13310  IF LEN(HJ$)<>1 THEN GOTO 13290
  344. 13320  GOSUB 20480
  345. 13330  IF HJ$<"A" OR HJ$>"M" THEN GOTO 13290
  346. 13340  M6$=HJ$
  347. 13350  GOTO 12220
  348. 13360  LOCATE 24,5:PRINT"Specify drives (max of 5) in the range A-M for download files. ";
  349. 13370  LINE INPUT;HJ$
  350. 13380  IF LEN(HJ$)<1 OR LEN(HJ$)>5 THEN GOTO 13360
  351. 13390  GOSUB 20480
  352. 13400  FOR I=1 TO LEN(HJ$)
  353. 13410  A$(I)=MID$(HJ$,I,1)
  354. 13420  NEXT
  355. 13430  FOR I=1 TO LEN(HJ$)
  356. 13440  IF A$(I)<"A" OR A$(I)>"M" THEN GOTO 13360
  357. 13450  NEXT
  358. 13460  M7$=HJ$
  359. 13470  GOTO 12220
  360. 13480  LOCATE 24,5:PRINT"Specify drive in the range A->M where system files will be located. ";
  361. 13490  LINE INPUT;HJ$
  362. 13500  IF LEN(HJ$)<>1 THEN GOTO 13480
  363. 13510  GOSUB 20480
  364. 13520  IF HJ$<"A" OR HJ$>"M" THEN GOTO 13480
  365. 13530  RDEV$=HJ$
  366. 13540  RETURN
  367. 13550  LOCATE 24,5:PRINT"Directory ID (max of 5 characters) for upload directory.";
  368. 13560  LINE INPUT;HJ$:GOSUB 20480
  369. 13570  IF LEN(HJ$)<1 OR LEN(HJ$)>5 THEN GOTO 13550
  370. 13580  FOR J=1 TO LEN(HJ$)
  371. 13590      X=ASC(MID$(HJ$,J,1))
  372. 13600      IF (X>64 AND X<91) THEN GOTO 13680
  373. 13610      IF (X>47 AND X<58) THEN GOTO 13680
  374. 13620      IF (X=33) THEN GOTO 13680
  375. 13630      IF (X>34 AND X<42) THEN GOTO 13680
  376. 13640      IF (X>43 AND X<46) THEN GOTO 13680
  377. 13650      IF (X>96 AND X<124) THEN GOTO 13680
  378. 13660      IF (X=125) THEN GOTO 13680
  379. 13670  GOTO 13550
  380. 13680  NEXT
  381. 13690  UDIR$="DIR"+HJ$
  382. 13700  GOTO 12220
  383. 13710  LOCATE 24,5:PRINT"Prompt bell default? (ON or OFF) ";
  384. 13720  LINE INPUT;HJ$
  385. 13730  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 13710
  386. 13740  GOSUB 20480
  387. 13750  IF HJ$="ON" THEN GOTO 13780
  388. 13760  IF HJ$="OFF" THEN GOTO 13780
  389. 13770  GOTO 13710
  390. 13780  M10$=HJ$
  391. 13790  GOTO 12220
  392. 13800  LOCATE 24,5:PRINT"Set maximum minutes a user can stay on the system ";
  393. 13810  LINE INPUT;HJ$
  394. 13820  TIME.MAX!=VAL(HJ$)
  395. 13830  IF TIME.MAX!<0 OR TIME.MAX!>1440 THEN GOTO 13800
  396. 13840  GOTO 12220
  397. 13850  LOCATE 24,5:PRINT"Set maximum number of messages allowed (MAX=250) ";
  398. 13860  LINE INPUT;HJ$
  399. 13870  MESSAGE.MAX=VAL(HJ$)
  400. 13880  IF MESSAGE.MAX<1 OR MESSAGE.MAX>250 THEN GOTO 13850
  401. 13890  GOTO 12220
  402. 13900  LOCATE 24,5:PRINT"Set number of months before an inactive user is purged. ";
  403. 13910  LINE INPUT;HJ$
  404. 13920  LAPSE.MAX=VAL(HJ$)
  405. 13930  IF LAPSE.MAX<1 OR LAPSE.MAX>12 THEN GOTO 13900
  406. 13940  GOTO 12220
  407. 13950  LOCATE 24,5:PRINT"How many system bulletins are available? (MAX=6) ";
  408. 13960  LINE INPUT;HJ$
  409. 13970  B=VAL(HJ$)
  410. 13980  IF B<0 OR B>6 THEN GOTO 13950
  411. 13990  GOTO 12220
  412. 14000  LOCATE 24,5:PRINT"Display user sessions on the screen? (YES or NO) ";
  413. 14010  LINE INPUT;HJ$
  414. 14020  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 14000
  415. 14030  GOSUB 20480
  416. 14040  IF HJ$="NO" THEN GOTO 14070
  417. 14050  IF HJ$="YES" THEN GOTO 14070
  418. 14060  GOTO 14000
  419. 14070  M11$=HJ$
  420. 14080  GOTO 12220
  421. 14090  LOCATE 24,5:PRINT"Execution type (COMPILED OR BASICA)? ";
  422. 14100  LINE INPUT;HJ$
  423. 14110  IF LEN(HJ$)<1 OR LEN(HJ$)>8 THEN GOTO 14090
  424. 14120  GOSUB 20480
  425. 14130  IF HJ$="COMPILED" THEN GOTO 14160
  426. 14140  IF HJ$="BASICA" THEN GOTO 14160
  427. 14150  GOTO 14090
  428. 14160  M12$=HJ$
  429. 14170  GOTO 12220
  430. 14180  CP1=1
  431. 14190  CP2=2
  432. 14200  LOCATE 24,5:PRINT"Number of communication port to be used ("+STR$(CP1)+" or"+STR$(CP2)+" )? ";
  433. 14210  LINE INPUT;HJ$
  434. 14220  IF LEN(HJ$)<>1 THEN GOTO 14180
  435. 14230  IF FIX(VAL(MID$(HJ$,1,1)))<CP1 OR FIX(VAL(MID$(HJ$,1,1)))>CP2 THEN GOTO 14180
  436. 14240  M13$="COM"+HJ$
  437. 14250  GOTO 12220
  438. 14260  LOCATE 24,5:PRINT"Which page number do you want ("+STR$(MINPAGE)+" thru"+STR$(MAXPAGE)+" )? ";
  439. 14270  LINE INPUT;HJ$
  440. 14280  IF LEN(HJ$)<>1 THEN GOTO 14260
  441. 14290  IF FIX(VAL(MID$(HJ$,1,1)))<MINPAGE OR FIX(VAL(MID$(HJ$,1,1)))>MAXPAGE THEN GOTO 14260
  442. 14300  IF FIX(VAL(MID$(HJ$,1,1)))=1 THEN GOTO 12220
  443. 14310  IF FIX(VAL(MID$(HJ$,1,1)))=2 THEN GOTO 14460
  444. 14320  IF FIX(VAL(MID$(HJ$,1,1)))=3 THEN GOTO 15280
  445. 14330  IF FIX(VAL(MID$(HJ$,1,1)))=4 THEN GOTO 16910
  446. 14340  GOTO 17830
  447. 14350  LOCATE 24,5:PRINT"Are you Satisfied with all Changes ? (Y/N) or <Q)uit ";
  448. 14360  LINE INPUT;HJ$
  449. 14370  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 14350
  450. 14380  GOSUB 20480
  451. 14390  IF HJ$="NO" THEN GOTO 12220
  452. 14400  IF HJ$="N" THEN GOTO 12220
  453. 14410  IF HJ$="YES" THEN GOTO 19630
  454. 14420  IF HJ$="Y" THEN GOTO 19630
  455. 14430  IF HJ$="QUIT" THEN GOTO 20460
  456. 14440  IF HJ$="Q" THEN GOTO 20460
  457. 14450  GOTO 14350
  458. 14460  CLS:I!=FRE(C$):COLOR 0,7,0:LOCATE 1,23:PRINT"RBBS-PC CPC12.2 Default Configuration";:COLOR FGR,BGR,BDR
  459. 14470  CURPAGE=2
  460. 14480  LOCATE 1,68:PRINT"Page "+STR$(CURPAGE)+" of "+STR$(MAXPAGE)
  461. 14490  LOCATE  3,10:PRINT"21. Drive with the following RBBS-PC text files -- "+TDEV$
  462. 14500  LOCATE  4,10:PRINT"22. Text file describing the bulletins is named -- "+BULLETIN$
  463. 14510  LOCATE  5,10:PRINT"23. Text file of first bulletin is named --------- "+BULLET1$
  464. 14520  LOCATE  6,10:PRINT"24. Text file of second bulletin is named -------- "+BULLET2$
  465. 14530  LOCATE  7,10:PRINT"25. Text file of third bulletin is named --------- "+BULLET3$
  466. 14540  LOCATE  8,10:PRINT"26. Text file of fourth bulletin is named -------- "+BULLET4$
  467. 14550  LOCATE  9,10:PRINT"27. Text file of fifth bulletin is named --------- "+BULLET5$
  468. 14560  LOCATE 10,10:PRINT"28. Text file of sixth bulletin is named --------- "+BULLET6$
  469. 14570  LOCATE 11,10:PRINT"29. Text file of first 'HELP' file is named ------ "+HELP01$
  470. 14580  LOCATE 12,10:PRINT"30. Text file of second 'HELP' file is named ----- "+HELP02$
  471. 14590  LOCATE 13,10:PRINT"31. Text file of third 'HELP' file is named ------ "+HELP03$
  472. 14600  LOCATE 14,10:PRINT"32. Text file of fourth 'HELP' file is named ----- "+HELP04$
  473. 14610  LOCATE 15,10:PRINT"33. Text file of fifth 'HELP' file is named ------ "+HELP05$
  474. 14620  LOCATE 16,10:PRINT"34. Text file of sixth 'HELP' file is named ------ "+HELP06$
  475. 14630  LOCATE 17,10:PRINT"35. Text file of seventh 'HELP' file is named ---- "+HELP07$
  476. 14640  LOCATE 18,10:PRINT"36. Text file of eighth 'HELP' file is named ----- "+HELP08$
  477. 14650  LOCATE 19,10:PRINT"37. Text file of general welcome file is named --- "+WELCOME$
  478. 14660  LOCATE 20,10:PRINT"38. Text file for first time users is named ------ "+NEWUSER$
  479. 14670  LOCATE 21,10:PRINT"39. Text file listing file directories is named -- "+DIR$
  480. 14680  LOCATE 22,10:PRINT"40. Select another page number.  Current page # is"STR$(CURPAGE)
  481. 14690  LOCATE 24,5:PRINT"Select number of configuration parameter to change (99 to update): ";:LOCATE 24,70:PRINT STRING$(10,32);
  482. 14700  TFGR=FGR+16:COLOR TFGR,BGR,BDR:LOCATE 24,70:PRINT"  ";:GOSUB 20470
  483. 14710  LOCATE 24,70
  484. 14720  COLOR FGR,BGR,BDR
  485. 14730  LINE INPUT;HJ$:IF HJ$="" THEN GOTO 14710
  486. 14740  LOCATE 24,5:PRINT STRING$(75,32);
  487. 14750  IF HJ$="21"THEN GOTO 15160
  488. 14760  IF HJ$="22" THEN GOSUB 14970: BULLETIN$=HJ$: GOTO 14460
  489. 14770  IF HJ$="23" THEN GOSUB 14970: BULLET1$=HJ$: GOTO 14460
  490. 14780  IF HJ$="24" THEN GOSUB 14970: BULLET2$=HJ$: GOTO 14460
  491. 14790  IF HJ$="25" THEN GOSUB 14970: BULLET3$=HJ$: GOTO 14460
  492. 14800  IF HJ$="26" THEN GOSUB 14970: BULLET4$=HJ$: GOTO 14460
  493. 14810  IF HJ$="27" THEN GOSUB 14970: BULLET5$=HJ$: GOTO 14460
  494. 14820  IF HJ$="28" THEN GOSUB 14970: BULLET6$=HJ$: GOTO 14460
  495. 14830  IF HJ$="29" THEN GOSUB 14970: HELP01$=HJ$: GOTO 14460
  496. 14840  IF HJ$="30" THEN GOSUB 14970: HELP02$=HJ$: GOTO 14460
  497. 14850  IF HJ$="31" THEN GOSUB 14970: HELP03$=HJ$: GOTO 14460
  498. 14860  IF HJ$="32" THEN GOSUB 14970: HELP04$=HJ$: GOTO 14460
  499. 14870  IF HJ$="33" THEN GOSUB 14970: HELP05$=HJ$: GOTO 14460
  500. 14880  IF HJ$="34" THEN GOSUB 14970: HELP06$=HJ$: GOTO 14460
  501. 14890  IF HJ$="35" THEN GOSUB 14970: HELP07$=HJ$: GOTO 14460
  502. 14900  IF HJ$="36" THEN GOSUB 14970: HELP08$=HJ$: GOTO 14460
  503. 14910  IF HJ$="37" THEN GOSUB 14970: WELCOME$=HJ$: GOTO 14460
  504. 14920  IF HJ$="38" THEN GOSUB 14970: NEWUSER$=HJ$: GOTO 14460
  505. 14930  IF HJ$="39" THEN GOSUB 14970: DIR$=HJ$: GOTO 14460
  506. 14940  IF HJ$="40" THEN GOTO 14260
  507. 14950  IF HJ$="99" THEN GOTO 14350
  508. 14960  GOTO 14690
  509. 14970  X$=HJ$
  510. 14980  LOCATE 24,5:PRINT SPC(74):LOCATE 24,5:PRINT"Specify name of the file for option "+X$+". ";
  511. 14990  LINE INPUT;HJ$:GOSUB 20480
  512. 15000  IF LEN(HJ$)<1 OR LEN(HJ$)>12 THEN GOTO 14980
  513. 15010  L1=INSTR(HJ$,"."):IF L1=0 THEN IF LEN(HJ$)<9 THEN GOTO 15050 ELSE GOTO 14980
  514. 15020  IF L1>9 THEN GOTO 14980
  515. 15030  IF L1<2 THEN GOTO 14980
  516. 15040  IF LEN(HJ$)-L1>3 THEN GOTO 14980
  517. 15050  FOR J=1 TO LEN(HJ$)
  518. 15060      X=ASC(MID$(HJ$,J,1))
  519. 15070      IF (X>63 AND X<91) THEN GOTO 15150
  520. 15080      IF (X>47 AND X<58) THEN GOTO 15150
  521. 15090      IF (X=33) THEN GOTO 15150
  522. 15100      IF (X>34 AND X<42) THEN GOTO 15150
  523. 15110      IF (X>43 AND X<47) THEN GOTO 15150
  524. 15120      IF (X>96 AND X<124) THEN GOTO 13680
  525. 15130      IF (X=125) THEN GOTO 15150
  526. 15140  GOTO 14980
  527. 15150  NEXT: RETURN
  528. 15160  LOCATE 24,5:PRINT"Specify drive in the range A->M where text files will be located. ";
  529. 15170  LINE INPUT;HJ$
  530. 15180  IF LEN(HJ$)<>1 THEN GOTO 15160
  531. 15190  GOSUB 20480
  532. 15200  IF HJ$<"A" OR HJ$>"M" THEN GOTO 15160
  533. 15210  TDEV$=HJ$
  534. 15220  GOTO 14460
  535. 15230  LOCATE 24,5:PRINT"What version of DOS will RBBS-PC be running under (1 or 2)?";
  536. 15240  LINE INPUT;HJ$
  537. 15250  B1%=VAL(HJ$)
  538. 15260  IF B1%<1 OR B1%>2 THEN GOTO 15230
  539. 15270  DOSVER%=B1%:GOTO 16910
  540. 15280  CLS:I!=FRE(C$):COLOR 0,7,0:LOCATE 1,23:PRINT"RBBS-PC CPC12.2 Default Configuration";:COLOR FGR,BGR,BDR
  541. 15290  CURPAGE=3
  542. 15300  LOCATE 1,68:PRINT"Page "+STR$(CURPAGE)+" of "+STR$(MAXPAGE)
  543. 15310  LOCATE  3,10:PRINT"41. Drive with the following RBBS-PC system files- "+RDEV$
  544. 15320  LOCATE  4,10:PRINT"42. System file containing messages is named ----- "+MESSAGES$
  545. 15330  LOCATE  5,10:PRINT"43. System file for packing messages is named ---- "+MESSAGES.BAK$
  546. 15340  LOCATE  6,10:PRINT"44. System file for 'callers' is named ----------- "+CALLERS$
  547. 15350  LOCATE  7,10:PRINT"45. System file for comments to SYSOP is named --- "+COMMENTS$
  548. 15360  LOCATE  8,10:PRINT"46. System file for recording users is named ----- "+USERS$
  549. 15370  LOCATE  9,10:PRINT"47. System file of 'long' callers is named ------- "+LONGCALR$
  550. 15380  LOCATE 10,10:PRINT"48. Are system bulletins to be 'optional'? ------- "+M15$
  551. 15390  LOCATE 11,10:PRINT"49. Foreground color (for color monitors) is -----"STR$(FGR)
  552. 15400  LOCATE 12,10:PRINT"50. Background color (for color monitors) is -----"STR$(BGR)
  553. 15410  LOCATE 13,10:PRINT"51. The border color (for color monitors) is -----"STR$(BDR)
  554. 15420  LOCATE 14,10:PRINT"52. The modem speaker default is ----------------- "+M14$
  555. 15430  LOCATE 15,10:PRINT"53. Remind users of messages that they left ------ "+M16$
  556. 15440  LOCATE 16,10:PRINT"54. BASIC files are to be considered TOKENIZED --- "+M17$
  557. 15450  LOCATE 17,10:PRINT"55. Name of the 'BATCH' file to start RBBS-PC ---- "+RBBS$
  558. 15460  LOCATE 18,10:PRINT"56. Name of the 'BATCH' file for CTTY command ---- "+CTTY$
  559. 15470  LOCATE 19,10:PRINT"57. Omit ";DIR$;" from N)ew command ";STRING$(22-LEN(DIR$),"-");" ";OMIT.DIR$
  560. 15480  LOCATE 20,10:PRINT"58. Omit ";UDIR$;" from N)ew command ";STRING$(22-LEN(UDIR$),"-");" ";OMIT.UDIR$
  561. 15490  LOCATE 21,10:PRINT"59. Is system 'welcome' interruptable? ----------- "+M18$
  562. 15500  LOCATE 22,10:PRINT"60. Select another page number.  Current page # is"STR$(CURPAGE)
  563. 15510  LOCATE 24,5:PRINT"Select number of configuration parameter to change (99 to update): ";:LOCATE 24,70:PRINT STRING$(10,32);
  564. 15520  TFGR=FGR+16:COLOR TFGR,BGR,BDR:LOCATE 24,70:PRINT"  ";:GOSUB 20470
  565. 15530  LOCATE 24,70
  566. 15540  COLOR FGR,BGR,BDR
  567. 15550  LINE INPUT;HJ$:IF HJ$="" THEN GOTO 15530
  568. 15560  LOCATE 24,5:PRINT STRING$(75,32);
  569. 15570  IF HJ$="41" THEN GOSUB 13480: GOTO 15280
  570. 15580  IF HJ$="42" THEN GOSUB 14970: GOTO 15280
  571. 15590  IF HJ$="43" THEN GOSUB 14970: GOTO 15280
  572. 15600  IF HJ$="44" THEN GOSUB 14970: GOTO 15280
  573. 15610  IF HJ$="45" THEN GOSUB 14970: GOTO 15280
  574. 15620  IF HJ$="46" THEN GOSUB 14970: GOTO 15280
  575. 15630  IF HJ$="47" THEN GOSUB 14970: GOTO 15280
  576. 15640  IF HJ$="48" THEN GOTO 16260
  577. 15650  IF HJ$="49" THEN GOSUB 15790: GOTO 15800
  578. 15660  IF HJ$="50" THEN GOSUB 15790: GOTO 15860
  579. 15670  IF HJ$="51" THEN GOSUB 15790: GOTO 15920
  580. 15680  IF HJ$="52" THEN GOTO 16080
  581. 15690  IF HJ$="53" THEN GOTO 16170
  582. 15700  IF HJ$="54" THEN GOTO 16350
  583. 15710  IF HJ$="55" THEN GOTO 16440
  584. 15720  IF HJ$="56" THEN GOTO 16540
  585. 15730  IF HJ$="57" THEN GOTO 16640
  586. 15740  IF HJ$="58" THEN GOTO 16730
  587. 15750  IF HJ$="59" THEN GOTO 16820
  588. 15760  IF HJ$="60" THEN GOTO 14260
  589. 15770  IF HJ$="99" THEN GOTO 14350
  590. 15780  GOTO 15510
  591. 15790  LOCATE 24,5:PRINT"(See the description of the COLOR statement in Basic.)";:RETURN
  592. 15800  LOCATE 25,5:PRINT"Enter foreground color (a value between 0 and 15)";
  593. 15810  LINE INPUT;HJ$
  594. 15820  B1=VAL(HJ$)
  595. 15830  IF B1<0 OR B1>15 THEN GOTO 15800
  596. 15840  FGR=B1
  597. 15850  GOTO 15280
  598. 15860  LOCATE 25,5:PRINT"Enter background color (a value between 0 and 7)";
  599. 15870  LINE INPUT;HJ$
  600. 15880  B1=VAL(HJ$)
  601. 15890  IF B1<0 OR B1>7 THEN GOTO 15860
  602. 15900  BGR=B1
  603. 15910  GOTO 15280
  604. 15920  LOCATE 25,5:PRINT"Enter the border color (a value between 0 and 7)";
  605. 15930  LINE INPUT;HJ$
  606. 15940  B1=VAL(HJ$)
  607. 15950  IF B1<0 OR B1>7 THEN GOTO 15920
  608. 15960  BDR=B1
  609. 15970  GOTO 15280
  610. 15980  L1=VAL(X$)
  611. 15990  FF=L1-41
  612. 16000  ON FF GOSUB 16010,16020,16030,16040,16050,16060,16070
  613. 16010  MESSAGES$=HJ$:GOTO 15280
  614. 16020  MESSAGES.BAK$=HJ$:GOTO 15280
  615. 16030  CALLERS$=HJ$:GOTO 15280
  616. 16040  COMMENTS$=HJ$:GOTO 15280
  617. 16050  USERS$=HJ$:GOTO 15280
  618. 16060  LONGCALR$=HJ$:GOTO 15280
  619. 16070  R$=HJ$:GOTO 15280
  620. 16080  LOCATE 24,5:PRINT"Modem speaker default? (ON or OFF) ";
  621. 16090  LINE INPUT;HJ$
  622. 16100  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 16080
  623. 16110  GOSUB 20480
  624. 16120  IF HJ$="ON" THEN GOTO 16150
  625. 16130  IF HJ$="OFF" THEN GOTO 16150
  626. 16140  GOTO 16080
  627. 16150  M14$=HJ$
  628. 16160  GOTO 15280
  629. 16170  LOCATE 24,5:PRINT"Remind users of the messages they left? (YES or NO) ";
  630. 16180  LINE INPUT;HJ$
  631. 16190  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 16170
  632. 16200  GOSUB 20480
  633. 16210  IF HJ$="NO" THEN GOTO 16240
  634. 16220  IF HJ$="YES" THEN GOTO 16240
  635. 16230  GOTO 16170
  636. 16240  M16$=HJ$
  637. 16250  GOTO 15280
  638. 16260  LOCATE 24,5:PRINT"Are system bulletins to be optional? (YES or NO) ";
  639. 16270  LINE INPUT;HJ$
  640. 16280  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 16260
  641. 16290  GOSUB 20480
  642. 16300  IF HJ$="NO" THEN GOTO 16330
  643. 16310  IF HJ$="YES" THEN GOTO 16330
  644. 16320  GOTO 16260
  645. 16330  M15$=HJ$
  646. 16340  GOTO 15280
  647. 16350  LOCATE 24,5:PRINT"Are BASIC files to be considered TOKENIZED? (YES or NO) ";
  648. 16360  LINE INPUT;HJ$
  649. 16370  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 16350
  650. 16380  GOSUB 20480
  651. 16390  IF HJ$="NO" THEN GOTO 16420
  652. 16400  IF HJ$="YES" THEN GOTO 16420
  653. 16410  GOTO 16350
  654. 16420  M17$=HJ$
  655. 16430  GOTO 15280
  656. 16440  X$=HJ$:LOCATE 24,5:PRINT"Specify drive (A->M) where file for option "+X$+" will be located. ";
  657. 16450  LINE INPUT;HJ$
  658. 16460  IF LEN(HJ$)<>1 THEN GOTO 16440
  659. 16470  GOSUB 20480
  660. 16480  IF HJ$<"A" OR HJ$>"M" THEN GOTO 16440
  661. 16490  TDEV$=HJ$
  662. 16500  GOSUB 14980
  663. 16510  EXT$=RIGHT$(HJ$,4)
  664. 16520  IF EXT$=".BAT" THEN RBBS$=TDEV$+":"+HJ$:GOTO 15280
  665. 16530  GOTO 16500
  666. 16540  X$=HJ$:LOCATE 24,5:PRINT"Specify drive (A->M) where file for option "+X$+" will be located. ";
  667. 16550  LINE INPUT;HJ$
  668. 16560  IF LEN(HJ$)<>1 THEN GOTO 16540
  669. 16570  GOSUB 20480
  670. 16580  IF HJ$<"A" OR HJ$>"M" THEN GOTO 16540
  671. 16590  TDEV$=HJ$
  672. 16600  GOSUB 14980
  673. 16610  EXT$=RIGHT$(HJ$,4)
  674. 16620  IF EXT$=".BAT" THEN CTTY$=TDEV$+":"+HJ$:GOTO 15280
  675. 16630  GOTO 16600
  676. 16640  LOCATE 24,5:PRINT"Is ";DIR$;" omitted from the N)ew command? (YES or NO) ";
  677. 16650  LINE INPUT;HJ$
  678. 16660  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 16640
  679. 16670  GOSUB 20480
  680. 16680  IF HJ$="NO" THEN GOTO 16710
  681. 16690  IF HJ$="YES" THEN GOTO 16710
  682. 16700  GOTO 16640
  683. 16710  OMIT.DIR$=HJ$
  684. 16720  GOTO 15280
  685. 16730  LOCATE 24,5:PRINT"Is ";UDIR$;" omitted from the N)ew command? (YES or NO) ";
  686. 16740  LINE INPUT;HJ$
  687. 16750  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 16730
  688. 16760  GOSUB 20480
  689. 16770  IF HJ$="NO" THEN GOTO 16800
  690. 16780  IF HJ$="YES" THEN GOTO 16800
  691. 16790  GOTO 16730
  692. 16800  OMIT.UDIR$=HJ$
  693. 16810  GOTO 15280
  694. 16820  LOCATE 24,5:PRINT"Is system 'welcome' interruptable (YES OR NO) ";
  695. 16830  LINE INPUT;HJ$
  696. 16840  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 16820
  697. 16850  GOSUB 20480
  698. 16860  IF HJ$="NO" THEN GOTO 16890
  699. 16870  IF HJ$="YES" THEN GOTO 16890
  700. 16880  GOTO 16820
  701. 16890  M18$=HJ$
  702. 16900  GOTO 15280
  703. 16910  CLS:I!=FRE(C$):COLOR 0,7,0:LOCATE 1,23:PRINT"RBBS-PC CPC12.2 Default Configuration";:COLOR FGR,BGR,BDR
  704. 16920  CURPAGE=4
  705. 16930  LOCATE 1,68:PRINT"Page "+STR$(CURPAGE)+" of "+STR$(MAXPAGE)
  706. 16940  LOCATE  3,10:PRINT"61. Drive with RBBS menus (RAM recommended) ------ "+MDEV$
  707. 16950  LOCATE  4,10:PRINT"62. The SYSOP's command menu is named ------------ "+MENU1$
  708. 16960  LOCATE  5,10:PRINT"63. The main messages subsystem menu is named ---- "+MENU2$
  709. 16970  LOCATE  6,10:PRINT"64. The file subsystem menu is named ------------- "+MENU3$
  710. 16980  LOCATE  7,10:PRINT"65. The utilities subsystem menu is named -------- "+MENU4$
  711. 16990  LOCATE  8,10:PRINT"66. The window subsystem menu is named ----------- "+MENU5$
  712. 17000  LOCATE  9,10:PRINT"67. Is the window subsystem available? ----------- "+M21$
  713. 17010  LOCATE 10,10:PRINT"68. Are graphics menus available? ---------------- "+M20$
  714. 17020  LOCATE 11,10:PRINT"69. Remind users of # uploads and downloads? ----- "+M19$
  715. 17030  LOCATE 12,10:PRINT"70. Default user page length is ------------------"STR$(PL)
  716. 17040  LOCATE 13,10:PRINT"71. Default user line width is -------------------"STR$(LW)
  717. 17050  LOCATE 14,10:PRINT"72. Number of active conferences is --------------"STR$(CONFNUM)
  718. 17060  LOCATE 15,10:PRINT"73. Menu that lists available conferences is ----- "+CONF$
  719. 17070  LOCATE 16,10:PRINT"74. Version of DOS that RBBS-PC will run under ---"STR$(DOSVER%)
  720. 17080  LOCATE 22,10:PRINT"80. Select another page number.  Current page # is"STR$(CURPAGE)
  721. 17090  LOCATE 24,5:PRINT"Select number of configuration parameter to change (99 to update): ";:LOCATE 24,70:PRINT STRING$(10,32);
  722. 17100  TFGR=FGR+16:COLOR TFGR,BGR,BDR:LOCATE 24,70:PRINT"  ";:GOSUB 20470
  723. 17110  LOCATE 24,70
  724. 17120  COLOR FGR,BGR,BDR
  725. 17130  LINE INPUT;HJ$:IF HJ$="" THEN GOTO 17110
  726. 17140  LOCATE 24,5:PRINT STRING$(75,32);
  727. 17150  IF HJ$="61" THEN GOTO 17700
  728. 17160  IF HJ$="62" THEN GOSUB 14970: IF LEN(HJ$)>7 OR INSTR(HJ$,".") THEN HJ$="62":GOTO 17160 ELSE MENU1$=HJ$:GOTO 16910
  729. 17170  IF HJ$="63" THEN GOSUB 14970: IF LEN(HJ$)>7 OR INSTR(HJ$,".") THEN HJ$="63":GOTO 17170 ELSE MENU2$=HJ$:GOTO 16910
  730. 17180  IF HJ$="64" THEN GOSUB 14970: IF LEN(HJ$)>7 OR INSTR(HJ$,".") THEN HJ$="64":GOTO 17180 ELSE MENU3$=HJ$:GOTO 16910
  731. 17190  IF HJ$="65" THEN GOSUB 14970: IF LEN(HJ$)>7 OR INSTR(HJ$,".") THEN HJ$="65":GOTO 17190 ELSE MENU4$=HJ$:GOTO 16910
  732. 17200  IF HJ$="66" THEN GOSUB 14970: IF LEN(HJ$)>7 OR INSTR(HJ$,".") THEN HJ$="66":GOTO 17200 ELSE MENU5$=HJ$:GOTO 16910
  733. 17210  IF HJ$="67" THEN GOTO 17320
  734. 17220  IF HJ$="68" THEN GOTO 17410
  735. 17230  IF HJ$="69" THEN GOTO 17500
  736. 17240  IF HJ$="70" THEN GOTO 17580
  737. 17250  IF HJ$="71" THEN GOTO 17640
  738. 17260  IF HJ$="72" THEN GOTO 17770
  739. 17270  IF HJ$="73" THEN GOSUB 14970: IF LEN(HJ$)>7 OR INSTR(HJ$,".") THEN HJ$="73":GOTO 17270 ELSE CONF$=HJ$:GOTO 16910
  740. 17280  IF HJ$="74" THEN GOTO 15230
  741. 17290  IF HJ$="80" THEN GOTO 14260
  742. 17300  IF HJ$="99" THEN GOTO 14350
  743. 17310  GOTO 17080
  744. 17320  LOCATE 24,5:PRINT"Is the window subsystem available? (YES or NO) ";
  745. 17330  LINE INPUT;HJ$
  746. 17340  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 17320
  747. 17350  GOSUB 20480
  748. 17360  IF HJ$="NO" THEN GOTO 17390
  749. 17370  IF HJ$="YES" THEN GOTO 17390
  750. 17380  GOTO 17320
  751. 17390  M21$=HJ$
  752. 17400  GOTO 16910
  753. 17410  LOCATE 24,5:PRINT"Are graphics menues available? (YES or NO) ";
  754. 17420  LINE INPUT;HJ$
  755. 17430  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 17410
  756. 17440  GOSUB 20480
  757. 17450  IF HJ$="NO" THEN GOTO 17480
  758. 17460  IF HJ$="YES" THEN GOTO 17480
  759. 17470  GOTO 17410
  760. 17480  M20$=HJ$
  761. 17490  GOTO 16910
  762. 17500  LOCATE 24,5:PRINT"Remind users of # uploads and downloads? (YES or NO) ";
  763. 17510  LINE INPUT;HJ$
  764. 17520  IF LEN(HJ$)<1 OR LEN(HJ$)>3 THEN GOTO 17500
  765. 17530  GOSUB 20480
  766. 17540  IF HJ$="NO" THEN GOTO 17560
  767. 17550  IF HJ$="YES" THEN GOSUB 20470:LOCATE 25,5:PRINT"Remember to use the RBBS utility programs RBBSUTIL1 and RBBSUTIL2!!";:IWAIT!=FNTI!+5:GOSUB 20540
  768. 17560  M19$=HJ$
  769. 17570  GOTO 16910
  770. 17580  LOCATE 24,5:PRINT"Default user page length?(a value between 0 and 255)";
  771. 17590  LINE INPUT;HJ$
  772. 17600  B1=VAL(HJ$)
  773. 17610  IF B1<0 OR B1>255 THEN GOTO 17580
  774. 17620  PL=B1
  775. 17630  GOTO 16910
  776. 17640  LOCATE 24,5:PRINT"Default user line width? (a value between 0 and 255)";
  777. 17650  LINE INPUT;HJ$
  778. 17660  B1=VAL(HJ$)
  779. 17670  IF B1<0 OR B1>255 THEN GOTO 17640
  780. 17680  LW=B1
  781. 17690  GOTO 16910
  782. 17700  LOCATE 24,5:PRINT"Specify drive in the range A->M where text files will be located. ";
  783. 17710  LINE INPUT;HJ$
  784. 17720  IF LEN(HJ$)<>1 THEN GOTO 17700
  785. 17730  GOSUB 20480
  786. 17740  IF HJ$<"A" OR HJ$>"M" THEN GOTO 17700
  787. 17750  MDEV$=HJ$
  788. 17760  GOTO 16910
  789. 17770  LOCATE 24,5:PRINT"Number of active conferences? (a value between 0 and 255)";
  790. 17780  LINE INPUT;HJ$
  791. 17790  B1=VAL(HJ$)
  792. 17800  IF B1<0 OR B1>255 THEN GOTO 17770
  793. 17810  CONFNUM=B1
  794. 17820  GOTO 16910
  795. 17830  CLS:I!=FRE(C$):COLOR 0,7,0:LOCATE 1,23:PRINT"RBBS-PC CPC12.2 Default Configuration";:COLOR FGR,BGR,BDR
  796. 17840  CURPAGE=5
  797. 17850  LOCATE 1,68:PRINT"Page "+STR$(CURPAGE)+" of "+STR$(MAXPAGE)
  798. 17860  LOCATE  3,10:PRINT"81. Minimum security level to get onto RBBS ------ "STR$(MINSEC)
  799. 17870  LOCATE  4,10:PRINT"82. Default security level for new callers ------- "STR$(DFSEC)
  800. 17880  LOCATE  5,10:PRINT"83. Security level for SYSOP --------------------- "STR$(SYSSEC)
  801. 17890  LOCATE  6,10:PRINT"84. Files with download security are listed in ---  "+FILE.SEC$
  802. 17900  LOCATE  7,10:PRINT"85. Minimum security level to see SYSOP's menu --- "STR$(SEESYS)
  803. 17910  LOCATE  8,10:PRINT"86. Password to locally takeover RBBS as sysop ---  "+KEYPW$
  804. 17920  LOCATE  9,10:PRINT"87. Max # security violations before disconnect -- "STR$(NVIO)
  805. 17930  M22$=STR$(SSEC):IX=SA(1):FOR I=2 TO 12:IF IX<>SA(I) THEN M22$="(Variable)":GOTO 17940 ELSE NEXT
  806. 17940  LOCATE 10,10:PRINT"88. Security level for SYSOP functions ----------- "M22$
  807. 17950  M23$=STR$(MMSEC):IX=MD(1):FOR I=2 TO 18:IF IX<>MD(I) THEN M23$="(Variable)":GOTO 17960 ELSE NEXT
  808. 17960  LOCATE 11,10:PRINT"89. Security level for main menu functions ------- "M23$
  809. 17970  M24$=STR$(FILSEC):IX=FS(1):FOR I=2 TO 8:IF IX<>FS(I) THEN M24$="(Variable)":GOTO 17980 ELSE NEXT
  810. 17980  LOCATE 12,10:PRINT"90. Security level for file menu functions ------- "M24$
  811. 17990  M25$=STR$(UTLSEC):IX=UA(1):FOR I=2 TO 12:IF IX<>UA(I) THEN M25$="(Variable)":GOTO 18000 ELSE NEXT
  812. 18000  LOCATE 13,10:PRINT"91. Security level for utilities menu functions -- "M25$
  813. 18010  LOCATE 14,10:PRINT"92. File with privileged group passwords is named-  "PASWRD$
  814. 18020  LOCATE 15,10:PRINT"93. Max # of password changes in a session ------- "STR$(CHMAX)
  815. 18030  LOCATE 16,10:PRINT"94. Min. security level for temp. password changes "STR$(CHSEC)
  816. 18040  LOCATE 20,10:PRINT"98. Select another page number.  Current page # is "STR$(CURPAGE)
  817. 18050  LOCATE 24,5:PRINT"Select number of configuration parameter to change (99 to update): ";:LOCATE 24,70:PRINT STRING$(10,32);
  818. 18060  TFGR=FGR+16:COLOR TFGR,BGR,BDR:LOCATE 24,70:PRINT"  ";:GOSUB 20470
  819. 18070  LOCATE 24,70
  820. 18080  COLOR FGR,BGR,BDR
  821. 18090  LINE INPUT;HJ$:IF HJ$="" THEN GOTO 18070
  822. 18100  LOCATE 24,5:PRINT STRING$(75,32);
  823. 18110  IF HJ$="81" THEN GOSUB 19620:GOSUB 18280:MINSEC=B1:GOTO 17830
  824. 18120  IF HJ$="82" THEN GOSUB 19620:GOSUB 18280:DFSEC=B1:GOTO 17830
  825. 18130  IF HJ$="83" THEN GOSUB 19620:GOSUB 18280:SYSSEC=B1:GOTO 17830
  826. 18140  IF HJ$="84" THEN GOSUB 18271:FILE.SEC$=TDEV$+":"+HJ$:GOTO 17830
  827. 18150  IF HJ$="85" THEN GOSUB 19620:GOSUB 18280:SEESYS=B1:GOTO 17830
  828. 18160  IF HJ$="86" THEN LOCATE 24,5:PRINT SPC(74):LOCATE 24,5:PRINT"Enter password (8 characters or less)";:GOSUB 14990: IF LEN(HJ$)>8 OR INSTR(HJ$,"0!") THEN HJ$="86":GOTO 18160 ELSE KEYPW$=HJ$:GOTO 17830
  829. 18170  IF HJ$="87" THEN GOSUB 19620:GOSUB 18280:NVIO=B1:GOTO 17830
  830. 18180  IF HJ$="88" THEN GOTO 18330
  831. 18190  IF HJ$="89" THEN GOSUB 18330:MMSEC=B1:GOTO 17830
  832. 18200  IF HJ$="90" THEN GOSUB 18330:FILSEC=B1:GOTO 17830
  833. 18210  IF HJ$="91" THEN GOSUB 18330:UTLSEC=B1:GOTO 17830
  834. 18220  IF HJ$="92" THEN GOSUB 18271:PASWRD$=TDEV$+":"+HJ$:GOTO 17830
  835. 18230  IF HJ$="93" THEN LOCATE 24,1:PRINT SPC(79):LOCATE 24,1:PRINT "Maximum number of password changes is? (0 or more)";:GOSUB 18290:CHMAX=B1:IF B1<0 THEN 18230 ELSE 17830
  836. 18240  IF HJ$="94" THEN GOSUB 19620:GOSUB 18280:CHSEC=B1:GOTO 17830
  837. 18250  IF HJ$="98" THEN GOTO 14260
  838. 18260  IF HJ$="99" THEN GOTO 14350
  839. 18270  GOTO 18040
  840. 18271  X$=HJ$:LOCATE 24,5:PRINT"Specify drive (A->M) where file for option "+X$+" will be located. ";
  841. 18272  LINE INPUT;HJ$
  842. 18273  IF LEN(HJ$)<>1 THEN GOTO 18271
  843. 18274  GOSUB 20480
  844. 18275  IF HJ$<"A" OR HJ$>"M" THEN GOTO 18271
  845. 18276  TDEV$=HJ$
  846. 18277  GOSUB 14980
  847. 18278  RETURN
  848. 18280  LOCATE 24,1:PRINT SPC(79):LOCATE 24,1:PRINT "Security level for "+HJ$+" is? ";
  849. 18290  LINE INPUT;HK$
  850. 18300  B1=VAL(HK$)
  851. 18310  IF B1=0 AND HK$<>"0" THEN 18280
  852. 18320  RETURN
  853. 18330  IF HJ$="88" THEN COMD$="SYSOP":GOTO 19340
  854. 18340  IF HJ$="89" THEN COMD$="Main Menu":GOTO 18960
  855. 18350  IF HJ$="90" THEN COMD$="File System":GOTO 18680
  856. 18360  IF HJ$="91" THEN COMD$="Utilities"
  857. 18370  LOCATE 24,1:PRINT"Set ALL the "+COMD$+" commands to the SAME security level? (YES or NO)";
  858. 18380  LINE INPUT;X$
  859. 18390  IF LEN(X$)<1 OR LEN(X$)>3 THEN GOTO 18370
  860. 18400  SWAP HJ$,X$:GOSUB 20480:SWAP HJ$,X$
  861. 18410  IF X$="YES" OR X$="Y" THEN HJ$="all "+COMD$+" commands":GOSUB 18280:FOR I=1 TO 12:UA(I)=B1:NEXT:UTLSEC=B1:GOTO 17830
  862. 18420  IF X$="NO" OR X$="N" THEN GOTO 18440
  863. 18430  GOTO 18370
  864. 18440  CLS:I!=FRE(C$):COLOR 0,7,0:LOCATE 1,23:PRINT"RBBS-PC CPC12.2 Default Configuration";:COLOR FGR,BGR,BDR
  865. 18450  LOCATE  3,5:PRINT"The RBBS-PC Utilities Commands are as follows:
  866. 18460  LOCATE   4,8:PRINT"Command                       Security Level"
  867. 18470  LOCATE  5,10:PRINT"B)aud rate                     "+STR$(UA(1))
  868. 18480  LOCATE  6,10:PRINT"G)raphics                      "+STR$(UA(2))
  869. 18485  LOCATE  7,10:PRINT"H)elp                          "+STR$(UA(3))
  870. 18490  LOCATE  8,10:PRINT"L)ine feeds                    "+STR$(UA(4))
  871. 18500  LOCATE  9,10:PRINT"M)sg margin                    "+STR$(UA(5))
  872. 18510  LOCATE 10,10:PRINT"N)ulls                         "+STR$(UA(6))
  873. 18520  LOCATE 11,10:PRINT"P)ass word                     "+STR$(UA(7))
  874. 18530  LOCATE 12,10:PRINT"Q)uit to main menu             "+STR$(UA(8))
  875. 18540  LOCATE 13,10:PRINT"S)tatistics                    "+STR$(UA(9))
  876. 18550  LOCATE 14,10:PRINT"T)ime                          "+STR$(UA(10))
  877. 18560  LOCATE 15,10:PRINT"U)serlog                       "+STR$(UA(11))
  878. 18570  LOCATE 16,10:PRINT"!)Prompt sound                 "+STR$(UA(12))
  879. 18580  LOCATE 24,5:PRINT"Enter first letter of command (CR to end)";
  880. 18590  LINE INPUT;X$:IF X$="" GOTO 17830
  881. 18600  SWAP HJ$,X$
  882. 18610  GOSUB 20480
  883. 18620  SWAP HJ$,X$
  884. 18630  FF=INSTR("BGHLMNPQSTU!",X$)
  885. 18640  IF FF=0 THEN GOTO 18580
  886. 18650  HJ$="all "+COMD$+" '"+X$+"' commands":GOSUB 18280
  887. 18660  UA(FF)=B1
  888. 18670  GOTO 18440
  889. 18680  LOCATE 24,1:PRINT"Set ALL the "+COMD$+" commands to the SAME security level? (YES or NO)";
  890. 18690  LINE INPUT;X$
  891. 18700  IF LEN(X$)<1 OR LEN(X$)>3 THEN GOTO 18680
  892. 18710  SWAP HJ$,X$:GOSUB 20480:SWAP HJ$,X$
  893. 18720  IF X$="YES" OR X$="Y" THEN HJ$="all "+COMD$+" commands":GOSUB 18280:FOR I=1 TO 8:FS(I)=B1:NEXT:FILSEC=B1:GOTO 17830
  894. 18730  IF X$="NO" OR X$="N" THEN GOTO 18750
  895. 18740  GOTO 18680
  896. 18750  CLS:I!=FRE(C$):COLOR 0,7,0:LOCATE 1,23:PRINT"RBBS-PC CPC12.2 Default Configuration";:COLOR FGR,BGR,BDR
  897. 18760  LOCATE  3,5:PRINT"The RBBS-PC File System Commands are as follows:
  898. 18770  LOCATE   4,8:PRINT"Command                       Security Level"
  899. 18780  LOCATE  5,10:PRINT"D)ownload a file               "+STR$(FS(1))
  900. 18790  LOCATE  6,10:PRINT"G)oodbye                       "+STR$(FS(2))
  901. 18800  LOCATE  7,10:PRINT"H)elp                          "+STR$(FS(3))
  902. 18810  LOCATE  8,10:PRINT"L)ist files                    "+STR$(FS(4))
  903. 18820  LOCATE  9,10:PRINT"N)ew files                     "+STR$(FS(5))
  904. 18830  LOCATE 10,10:PRINT"Q)uit to main menu             "+STR$(FS(6))
  905. 18840  LOCATE 11,10:PRINT"U)pload a file                 "+STR$(FS(7))
  906. 18850  LOCATE 12,10:PRINT"?) Xfer info                   "+STR$(FS(8))
  907. 18860  LOCATE 24,5:PRINT"Enter first letter of command (CR to end)";
  908. 18870  LINE INPUT;X$:IF X$="" GOTO 17830
  909. 18880  SWAP HJ$,X$
  910. 18890  GOSUB 20480
  911. 18900  SWAP HJ$,X$
  912. 18910  FF=INSTR("DGHLNQU?",X$)
  913. 18920  IF FF=0 THEN GOTO 18860
  914. 18930  HJ$="all "+COMD$+" '"+X$+"' commands":GOSUB 18280
  915. 18940  FS(FF)=B1
  916. 18950  GOTO 18750
  917. 18960  LOCATE 24,1:PRINT"Set ALL the "+COMD$+" commands to the SAME security level? (YES or NO)";
  918. 18970  LINE INPUT;X$
  919. 18980  IF LEN(X$)<1 OR LEN(X$)>3 THEN GOTO 18960
  920. 18990  SWAP HJ$,X$:GOSUB 20480:SWAP HJ$,X$
  921. 19000  IF X$="YES" OR X$="Y" THEN HJ$="all "+COMD$+" commands":GOSUB 18280:FOR I=1 TO 18:MD(I)=B1:NEXT:MMSEC=B1:GOTO 17830
  922. 19010  IF X$="NO" OR X$="N" THEN GOTO 19030
  923. 19020  GOTO 18960
  924. 19030  CLS:I!=FRE(C$):COLOR 0,7,0:LOCATE 1,23:PRINT"RBBS-PC CPC12.2 Default Configuration";:COLOR FGR,BGR,BDR
  925. 19040  LOCATE  3,5:PRINT"The RBBS-PC Main Menu Commands are as follows:
  926. 19050  LOCATE   4,8:PRINT"Command                       Security Level"
  927. 19060  LOCATE  5,10:PRINT"B)ulletins                     "+STR$(MD(1))
  928. 19070  LOCATE  6,10:PRINT"C)omments                      "+STR$(MD(2))
  929. 19080  LOCATE  7,10:PRINT"E)nter message                 "+STR$(MD(3))
  930. 19090  LOCATE  8,10:PRINT"F)iles system                  "+STR$(MD(4))
  931. 19100  LOCATE  9,10:PRINT"G)oodbye                       "+STR$(MD(5))
  932. 19110  LOCATE 10,10:PRINT"H)elp                          "+STR$(MD(6))
  933. 19120  LOCATE 11,10:PRINT"I)nitial welcome               "+STR$(MD(7))
  934. 19130  LOCATE 12,10:PRINT"K)ill messages                 "+STR$(MD(8))
  935. 19140  LOCATE 13,10:PRINT"L)ines per page                "+STR$(MD(9))
  936. 19150  LOCATE 14,10:PRINT"O)perator                      "+STR$(MD(10))
  937. 19160  LOCATE 15,10:PRINT"P)ersonal mail                 "+STR$(MD(11))
  938. 19170  LOCATE 16,10:PRINT"Q)uick scan                    "+STR$(MD(12))
  939. 19180  LOCATE 17,10:PRINT"R)ead messages                 "+STR$(MD(13))
  940. 19190  LOCATE 18,10:PRINT"S)can messages                 "+STR$(MD(14))
  941. 19200  LOCATE 19,10:PRINT"U)tilities (more)              "+STR$(MD(15))
  942. 19210  LOCATE 20,10:PRINT"W)indow system                 "+STR$(MD(16))
  943. 19220  LOCATE 21,10:PRINT"X)Expert on/off                "+STR$(MD(17))
  944. 19230  LOCATE 22,10:PRINT"?)Functions                    "+STR$(MD(18))
  945. 19240  LOCATE 24,5:PRINT"Enter first letter of command (CR to end)";
  946. 19250  LINE INPUT;X$:IF X$="" GOTO 17830
  947. 19260  SWAP HJ$,X$
  948. 19270  GOSUB 20480
  949. 19280  SWAP HJ$,X$
  950. 19290  FF=INSTR("BCEFGHIKLOPQRSUWX?",X$)
  951. 19300  IF FF=0 THEN GOTO 19240
  952. 19310  HJ$="all "+COMD$+" '"+X$+"' commands":GOSUB 18280
  953. 19320  MD(FF)=B1
  954. 19330  GOTO 19030
  955. 19340  LOCATE 24,1:PRINT"Set ALL the "+COMD$+" commands to the SAME security level? (YES or NO)";
  956. 19350  LINE INPUT;X$
  957. 19360  IF LEN(X$)<1 OR LEN(X$)>3 THEN GOTO 19340
  958. 19370  SWAP HJ$,X$:GOSUB 20480:SWAP HJ$,X$
  959. 19380  IF X$="YES" OR X$="Y" THEN HJ$="all "+COMD$+" commands":GOSUB 18280:FOR I=1 TO 12:SA(I)=B1:NEXT:SSEC=B1:GOTO 17830
  960. 19390  IF X$="NO" OR X$="N" THEN GOTO 19410
  961. 19400  GOTO 19340
  962. 19410  CLS:I!=FRE(C$):COLOR 0,7,0:LOCATE 1,23:PRINT"RBBS-PC CPC12.2 Default Configuration";:COLOR FGR,BGR,BDR
  963. 19420  LOCATE  3,5:PRINT"The RBBS-PC Main Menu Commands are as follows:
  964. 19430  LOCATE   4,8:PRINT"Command                       Security Level"
  965. 19440  LOCATE  5,10:PRINT" 1 List comments               "+STR$(SA(1))
  966. 19450  LOCATE  6,10:PRINT" 2 List callers log            "+STR$(SA(2))
  967. 19460  LOCATE  7,10:PRINT" 3 Pack msg file               "+STR$(SA(3))
  968. 19470  LOCATE  8,10:PRINT" 4 Renumber msgs               "+STR$(SA(4))
  969. 19480  LOCATE  9,10:PRINT" 5 Recover a Msg               "+STR$(SA(5))
  970. 19490  LOCATE 10,10:PRINT" 6 List message headers        "+STR$(SA(6))
  971. 19500  LOCATE 11,10:PRINT" 7 Erase comments              "+STR$(SA(7))
  972. 19510  LOCATE 12,10:PRINT" 8 Users maintenance           "+STR$(SA(8))
  973. 19520  LOCATE 13,10:PRINT" 9 Toggle page bell            "+STR$(SA(9))
  974. 19530  LOCATE 14,10:PRINT"10 Pack users file             "+STR$(SA(10))
  975. 19540  LOCATE 15,10:PRINT"11 Filespecs                   "+STR$(SA(11))
  976. 19550  LOCATE 16,10:PRINT"12 Exit to DOS 2               "+STR$(SA(12))
  977. 19560  LOCATE 24,5:PRINT"Enter SYSOP function number (CR to end)";
  978. 19570  LINE INPUT;X$:IF X$="" GOTO 17830
  979. 19580  IF VAL(X$)<1 OR VAL(X$)>12 THEN GOTO 19560
  980. 19590  HJ$="all "+COMD$+" '"+X$+"' commands":GOSUB 18280
  981. 19600  SA(VAL(X$))=B1
  982. 19610  GOTO 19410
  983. 19620  HJ$="option "+HJ$:RETURN
  984. 19630  IF M5$="NOVICE" THEN XPR=0
  985. 19640  IF M5$="EXPERT" THEN XPR=-1
  986. 19650  FDEV$=M7$+M6$
  987. 19660  IF M10$="OFF" THEN BELL=0
  988. 19670  IF M10$="ON" THEN BELL=-1
  989. 19680  IF M11$="YES" THEN PRT=TRUE
  990. 19690  IF M11$="NO" THEN PRT=FALSE
  991. 19700  IF M12$="COMPILED" THEN COMPILED=TRUE
  992. 19710  IF M12$="BASICA" THEN COMPILED=FALSE
  993. 19720  IF M14$="OFF" THEN SPEAKER=0
  994. 19730  IF M14$="ON" THEN SPEAKER=-1
  995. 19740  IF M15$="YES" THEN OPTBUL=TRUE
  996. 19750  IF M15$="NO" THEN OPTBUL=FALSE
  997. 19760  IF M16$="YES" THEN REMIND=TRUE
  998. 19770  IF M16$="NO" THEN REMIND=FALSE
  999. 19780  IF M17$="YES" THEN BTOK=TRUE
  1000. 19790  IF M17$="NO" THEN BTOK=FALSE
  1001. 19800  IF M18$="YES" THEN OPTWEL=TRUE
  1002. 19810  IF M18$="NO" THEN OPTWEL=FALSE
  1003. 19820  IF M19$="YES" THEN UPLDDLD=TRUE
  1004. 19830  IF M19$="NO" THEN UPLDDLD=FALSE
  1005. 19840  IF M20$="YES" THEN GRAPHICS=TRUE
  1006. 19850  IF M20$="NO" THEN GRAPHICS=FALSE
  1007. 19860  IF M21$="YES" THEN WINDW=TRUE
  1008. 19870  IF M21$="NO" THEN WINDW=FALSE
  1009. 19880  OPEN "O",#1,CONFIG$
  1010. 19890  IF INSTR(RDEV$,":")<1 THEN RDEV$=RDEV$+":"
  1011. 19900  IF INSTR(MDEV$,":")<1 THEN MDEV$=MDEV$+":"
  1012. 19910  IF INSTR(TDEV$,":")<1 THEN TDEV$=TDEV$+":"
  1013. 19920  MENU1$=MDEV$+MENU1$
  1014. 19930  MENU2$=MDEV$+MENU2$
  1015. 19940  MENU3$=MDEV$+MENU3$
  1016. 19950  MENU4$=MDEV$+MENU4$
  1017. 19960  MENU5$=MDEV$+MENU5$
  1018. 19970  CONF$=MDEV$+CONF$
  1019. 19980  WRITE #1,FDEV$,RDEV$,PASS1$,PASS2$,NFIR$,NLAS$,CBACK,ANNOY.ON,ANNOY.OFF,TIME.MAX!,MESSAGE.MAX,LAPSE.MAX,UDIR$,XPR,B,BELL,PRT,COMPILED,MENU1$,MENU2$,MENU3$,MENU4$,MENU5$,CONF$,CONFNUM,OPTWEL,UPLDDLD,PL,LW,GRAPHICS,WINDW,MDEV$
  1020. 19990  MESSAGES$=RDEV$+MESSAGES$
  1021. 20000  MESSAGES.BAK$=RDEV$+MESSAGES.BAK$
  1022. 20010  CALLERS$=RDEV$+CALLERS$
  1023. 20020  COMMENTS$=RDEV$+COMMENTS$
  1024. 20030  USERS$=RDEV$+USERS$
  1025. 20040  LONGCALR$=RDEV$+LONGCALR$
  1026. 20050  R$=RDEV$+R$
  1027. 20070  BULLETIN$=TDEV$+BULLETIN$
  1028. 20080  BULLET1$=TDEV$+BULLET1$
  1029. 20090  BULLET2$=TDEV$+BULLET2$
  1030. 20100  BULLET3$=TDEV$+BULLET3$
  1031. 20110  BULLET4$=TDEV$+BULLET4$
  1032. 20120  BULLET5$=TDEV$+BULLET5$
  1033. 20130  BULLET6$=TDEV$+BULLET6$
  1034. 20140  HELP01$=TDEV$+HELP01$
  1035. 20150  HELP02$=TDEV$+HELP02$
  1036. 20160  HELP03$=TDEV$+HELP03$
  1037. 20170  HELP04$=TDEV$+HELP04$
  1038. 20180  HELP05$=TDEV$+HELP05$
  1039. 20190  HELP06$=TDEV$+HELP06$
  1040. 20200  HELP07$=TDEV$+HELP07$
  1041. 20210  HELP08$=TDEV$+HELP08$
  1042. 20220  WELCOME$=TDEV$+WELCOME$
  1043. 20230  NEWUSER$=TDEV$+NEWUSER$
  1044. 20240  WRITE #1,MESSAGES$,MESSAGES.BAK$,CALLERS$,COMMENTS$,USERS$,LONGCALR$,WELCOME$,NEWUSER$,DIR$,M13$,OPTBUL,SPEAKER,TDEV$,DOSVER%,FGR,BGR,BDR,RBBS$,CTTY$,OMIT.DIR$,OMIT.UDIR$
  1045. 20250  WRITE #1,HELP01$,HELP02$,HELP03$,HELP04$,HELP05$,HELP06$,HELP07$,HELP08$,BULLETIN$,BULLET1$,BULLET2$,BULLET3$,BULLET4$,BULLET5$,BULLET6$,REMIND,BTOK
  1046. 20260  WRITE #1,MINSEC,DFSEC,SYSSEC,FILE.SEC$,SEESYS,KEYPW$,NVIO,SA(1),SA(2),SA(3),SA(4),SA(5),SA(6),SA(7),SA(8),SA(9),SA(10),SA(11),SA(12),PASWRD$,CHMAX,CHSEC
  1047. 20270  WRITE #1,MD(1),MD(2),MD(3),MD(4),MD(5),MD(6),MD(7),MD(8),MD(9),MD(10),MD(11),MD(12),MD(13),MD(14),MD(15),MD(16),MD(17),MD(18),FS(1),FS(2),FS(3),FS(4),FS(5),FS(6),FS(7),FS(8)
  1048. 20273  WRITE #1,UA(1),UA(2),UA(3),UA(4),UA(5),UA(6),UA(7),UA(8),UA(9),UA(10),UA(11),UA(12)
  1049. 20275  WRITE #1,SM1$,SM2$,SM3$,SM4$,SM5$,SM6$,SM7$,SM8$,SM9$,SM10$,SM11$
  1050. 20280  CLOSE #1
  1051. 20290  CLS:LOCATE 12,1,1:PRINT "RBBS-PC configuration description file, RBBS-PC.DEF, now on default drive.":GOSUB 20470
  1052. 20300  PRINT "NOTE:  RBBS-PC CPC12.2 corrects the problem that caused the CALLERS file to":GOSUB 20470
  1053. 20310  PRINT "       grow rapidly.  If you wish to continue using your 12.0 CALLERS file,'":GOSUB 20470
  1054. 20320  PRINT "       run the utility FIXFILES.BAS once (and only once) against it.":GOSUB 20470
  1055. 20330  GOTO 20440
  1056. 20340  REM
  1057. 20350  REM * HANDLE ERROR CONDITIONS *
  1058. 20360  IF ERR=53 AND ERL=11400 THEN PRINT CONFIG$+" file not found.  A new one will be created.":IWAIT!=FNTI!+5:GOSUB 20530:GOTO 11860
  1059. 20370  IF ERR=62 AND (ERL=11410 OR ERL=11420 OR ERL=11430) THEN PRINT CONFIG$+" from a version earlier than CPC12.2 on default drive.":PRINT "Please delete and rerun CONFIG.":GOSUB 20440
  1060. 20380  IF ERR=61 THEN PRINT "ERROR - IBM DOS DISKETTE FULL ":GOTO 20440
  1061. 20390  IF ERR=67 THEN PRINT "ERROR - IBM DOS DIRECTORY FULL":GOTO 20440
  1062. 20400  IF ERR=70 THEN PRINT "DISKETTE IN DRIVE IS WRITE PROTECTED":GOTO 20440
  1063. 20410  IF ERR=71 THEN PRINT "DRIVE DOOR OPEN OR MISSING DISKETTE":GOTO 20440
  1064. 20420  IF ERR=72 THEN PRINT "ERROR - UNFORMATTED IBM DOS DISKETTE IN DRIVE":GOTO 20440
  1065. 20430  PRINT "+++ Error";ERR;" in line ";ERL "occurred at " TIME$ " on " DATE$
  1066. 20440  IWAIT!=FNTI!+30
  1067. 20450  GOSUB 20530
  1068. 20460  SYSTEM
  1069. 20470  FOR WQ=1 TO 3:SOUND 1000*WQ,1:NEXT:RETURN
  1070. 20480  ' Convert Lower Case to Upper Case -------
  1071. 20490  FOR Z=1 TO LEN(HJ$)
  1072. 20500  MID$(HJ$,Z,1)=CHR$(ASC(MID$(HJ$,Z,1))+32*(ASC(MID$(HJ$,Z,1))>96))
  1073. 20510  NEXT Z
  1074. 20520  RETURN
  1075. 20530  ' wait routine
  1076. 20540  IF FNTI!<IWAIT! THEN GOTO 20540
  1077. 20550  RETURN
  1078.